home *** CD-ROM | disk | FTP | other *** search
/ Ice Princess Press Kit / Ice Princess Press Kit.iso / pc / program.dxr / Internal_21_Megabyte Counter.ls < prev    next >
Encoding:
Text File  |  2005-03-02  |  3.4 KB  |  111 lines
  1. global gPhotolist, gImages, gMegs
  2.  
  3. on megaHandler
  4.   sort(gPhotolist)
  5.   gMegs = 0
  6.   repeat with m = 1 to gPhotolist.count
  7.     megaSize = getAt(gPhotolist, m)
  8.     case megaSize of
  9.       "C01":
  10.         gMegs = gMegs + 2.60000000000000009
  11.       "C02":
  12.         gMegs = gMegs + 5.40000000000000036
  13.       "C03":
  14.         gMegs = gMegs + 5
  15.       "C04":
  16.         gMegs = gMegs + 5.40000000000000036
  17.       "C05":
  18.         gMegs = gMegs + 6.70000000000000018
  19.       "C06":
  20.         gMegs = gMegs + 5.29999999999999982
  21.       "C07":
  22.         gMegs = gMegs + 5.90000000000000036
  23.       "C08":
  24.         gMegs = gMegs + 5.90000000000000036
  25.       "C09":
  26.         gMegs = gMegs + 5.59999999999999964
  27.       "C10":
  28.         gMegs = gMegs + 6.20000000000000018
  29.       "C11":
  30.         gMegs = gMegs + 6.09999999999999964
  31.       "C12":
  32.         gMegs = gMegs + 6.20000000000000018
  33.       "C13":
  34.         gMegs = gMegs + 5.70000000000000018
  35.       "C14":
  36.         gMegs = gMegs + 6.5
  37.       "C15":
  38.         gMegs = gMegs + 4.90000000000000036
  39.       "C16":
  40.         gMegs = gMegs + 5
  41.       "C17":
  42.         gMegs = gMegs + 4.40000000000000036
  43.       "C18":
  44.         gMegs = gMegs + 5.5
  45.       "C19":
  46.         gMegs = gMegs + 5.40000000000000036
  47.       "C20":
  48.         gMegs = gMegs + 1.19999999999999996
  49.       "C21":
  50.         gMegs = gMegs + 5
  51.       "C22":
  52.         gMegs = gMegs + 4.90000000000000036
  53.       "C23":
  54.         gMegs = gMegs + 4.90000000000000036
  55.       "C24":
  56.         gMegs = gMegs + 6
  57.       "C25":
  58.         gMegs = gMegs + 5.79999999999999982
  59.       "C26":
  60.         gMegs = gMegs + 5.70000000000000018
  61.       "C27":
  62.         gMegs = gMegs + 5.40000000000000036
  63.       "C28":
  64.         gMegs = gMegs + 5.29999999999999982
  65.       "C29":
  66.         gMegs = gMegs + 5.79999999999999982
  67.       "C30":
  68.         gMegs = gMegs + 5.59999999999999964
  69.       "C31":
  70.         gMegs = gMegs + 5
  71.       "C32":
  72.         gMegs = gMegs + 5.90000000000000036
  73.       "C33":
  74.         gMegs = gMegs + 5
  75.       "C34":
  76.         gMegs = gMegs + 5.5
  77.       "C35":
  78.         gMegs = gMegs + 5.5
  79.       "C36":
  80.         gMegs = gMegs + 5.20000000000000018
  81.       "C37":
  82.         gMegs = gMegs + 5.20000000000000018
  83.       "C38":
  84.         gMegs = gMegs + 4.70000000000000018
  85.       "C39":
  86.         gMegs = gMegs + 5.79999999999999982
  87.       "C40":
  88.         gMegs = gMegs + 4.29999999999999982
  89.       "C41":
  90.         gMegs = gMegs + 5
  91.       "C42":
  92.         gMegs = gMegs + 3.79999999999999982
  93.       "TT01":
  94.         gMegs = gMegs + 1.10000000000000009
  95.       "TT02":
  96.         gMegs = gMegs + 25
  97.     end case
  98.   end repeat
  99.   gImages = gPhotolist.count
  100.   if gImages = 1 then
  101.     put "You have selected " & gImages & " item, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'Ice Princess Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  102.   else
  103.     put "You have selected " & gImages & " items, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'Ice Princess Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  104.   end if
  105. end
  106.  
  107. on exitFrame
  108.   megaHandler()
  109.   go(the frame)
  110. end
  111.